	@	/0000
	JP	MAIN
a1	$	=2
seno	JP	/0000
	LD	K2
	*	j0
	MM	TEMP1
	LD	K1
	+	TEMP1
	MM	TEMP2
	LD TEMP2
	MM	a1
	LD K1
	RS	seno
a0	$	=2
b0	$	=2
c0	$	=2
MAIN 